home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / bell.dir / 00399_Script_Letter parent < prev    next >
Text File  |  1997-05-26  |  2KB  |  64 lines
  1. -- o Letter 
  2.  
  3.  
  4.  
  5. property pLabelTxtCast, pDescriptionTxtCast, pInstructionTxtCast
  6. property pCurrPage, pActiveTextDB, pNumOfPages, pPageSnd, pLettertextCastNum
  7.  
  8. global gActiveInventor, gUtilityObj,gInventorIndexNum
  9. --------------------------------------------------------------------------------------------------------------------
  10. on mInit me
  11.   
  12.   set pLabelTxtCast = the number of cast "labelTxt"
  13.   set pDescriptionTxtCast = the number of cast "descrTxt"
  14.   set pInstructionTxtCast =  the number of cast "instrTxt"
  15.   set pPageSnd = 1392
  16.   set pLettertextCastNum  = the number of cast "Letter text"
  17.   
  18.   return( me )
  19.   
  20. end mInit
  21. --------------------------------------------------------------------------------------------------------------------
  22.  
  23. on  mActivate me
  24.   
  25.   
  26.   set pNumOfPages = 2
  27.   set pActiveTextDB = the text of cast "Letter Text"
  28.   
  29.   set pCurrPage = 1
  30.   mSetCursors(gUtilityObj, [7:#Finger])
  31.   
  32. end mActivate 
  33.  
  34. --------------------------------------------------------------------------------------------------------------------
  35. on mNextPage me
  36.   
  37.   puppetsound 2, pPageSnd
  38.   set pCurrPage = pCurrPage + 1
  39.   go the frame + 1
  40.   set the text of cast pInstructionTxtCast = the text of cast (pLettertextCastNum + pCurrPage -1)
  41.  
  42. end mNextPage
  43. --------------------------------------------------------------------------------------------------------------------
  44. on mPrevPage me
  45.   
  46.   puppetsound 2, pPageSnd
  47.   go the frame - 1
  48.   set pCurrPage = pCurrPage - 1
  49.   set startline =  pCurrPage 
  50.   set endline = pCurrPage
  51.   set the text of cast pInstructionTxtCast = the text of cast (pLettertextCastNum + pCurrPage - 1)
  52.   
  53. end mPrevPage
  54. --------------------------------------------------------------------------------------------------------------------
  55.  
  56. on mClose
  57.   
  58.   sound stop 2
  59.   set the text of cast pDescriptionTxtCast = " "
  60.   
  61. end mClose
  62. --------------------------------------------------------------------------------------------------------------------
  63.  
  64.